﻿Imports System
Imports System.Collections

Public Class DatosExternosBE
#Region "Campos y Propiedades"
    Private _IdDatoExterno As Decimal
    Private _NombreConexion As String
    Private _CadenaConexion As String
    Private _FechaCreacion As DateTime
    Private _UsuarioCreacion As String
    Private _FechaModificacion As DateTime
    Private _UsuarioModificacion As String

    Public Property IdDatoExterno() As Decimal
        Get
            Return _IdDatoExterno
        End Get
        Set(ByVal value As Decimal)
            _IdDatoExterno = value
        End Set
    End Property

    Public Property NombreConexion() As String
        Get
            Return _NombreConexion
        End Get
        Set(ByVal value As String)
            _NombreConexion = value
        End Set
    End Property

    Public Property CadenaConexion() As String
        Get
            Return _CadenaConexion
        End Get
        Set(ByVal value As String)
            _CadenaConexion = value
        End Set
    End Property

    Public Property FechaCreacion() As DateTime
        Get
            Return _FechaCreacion
        End Get
        Set(ByVal value As DateTime)
            _FechaCreacion = value
        End Set
    End Property

    Public Property UsuarioCreacion() As String
        Get
            Return _UsuarioCreacion
        End Get
        Set(ByVal value As String)
            _UsuarioCreacion = value
        End Set
    End Property

    Public Property FechaModificacion() As DateTime
        Get
            Return _FechaModificacion
        End Get
        Set(ByVal value As DateTime)
            _FechaModificacion = value
        End Set
    End Property

    Public Property UsuarioModificacion() As String
        Get
            Return _UsuarioModificacion
        End Get
        Set(ByVal value As String)
            _UsuarioModificacion = value
        End Set
    End Property


#End Region

#Region "Constructores"

    Public Sub New()

    End Sub

    Public Sub New(ByVal IdDatoExterno As Decimal, ByVal NombreConexion As String, ByVal CadenaConexion As String, ByVal FechaCreacion As DateTime, ByVal UsuarioCreacion As String, ByVal FechaModificacion As DateTime, ByVal UsuarioModificacion As String)
        Me._IdDatoExterno = IdDatoExterno
        Me._NombreConexion = NombreConexion
        Me._CadenaConexion = CadenaConexion
        Me._FechaCreacion = FechaCreacion
        Me._UsuarioCreacion = UsuarioCreacion
        Me._FechaModificacion = FechaModificacion
        Me._UsuarioModificacion = UsuarioModificacion
    End Sub
#End Region
End Class

Public Class DatosExternosBECollection
    Inherits CollectionBase

    Default Public Property Item(ByVal index As Integer) As DatosExternosBE
        Get
            Return CType(List(index), DatosExternosBE)
        End Get
        Set(ByVal value As DatosExternosBE)
            List(index) = value
        End Set
    End Property

    Public Function Add(ByVal value As DatosExternosBE) As Integer
        Return (List.Add(value))
    End Function

    Public Function IndexOf(ByVal value As DatosExternosBE) As Integer
        Return (List.IndexOf(value))
    End Function

    Public Sub Insert(ByVal index As Integer, ByVal value As DatosExternosBE)
        List.Insert(index, value)
    End Sub

    Public Sub Remove(ByVal value As DatosExternosBE)
        List.Remove(value)
    End Sub

    Public Function Contains(ByVal value As DatosExternosBE) As Boolean
        Return (List.Contains(value))
    End Function
End Class



